home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / Apple II Getting down to Basic / STARTUP.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-14  |  4.3 KB  |  121 lines
  1. 1  REM                               Getting Down to BASIC       by Jeff Vasek, Ed.D.,       Apple Computer, Inc.        November 7, 1983                           
  2. 2  FOR X = 928 TO 933: POKE X,0: NEXT X
  3. 3  GOSUB 5000
  4. 4  GOSUB 6000
  5. 5  DIM XY(6,60),N(6)
  6. 6  PRINT  CHR$(21)
  7. 7 D$ =  CHR$(4):XB = 5:YB = 16
  8. 10  HOME : COLOR= 15: VTAB 5: HTAB 5: PRINT "Apple presents"
  9. 15  VTAB 12: HTAB 12: PRINT "Getting down to..."
  10. 20  PRINT D$;"BLOAD LOASM2.0"
  11. 25 R = 0: GOSUB 8000: REM  READ DATA
  12. 27  GOSUB 4000
  13. 30  GOSUB 2000: REM  PLOT WORD BASIC
  14. 40  GOSUB 3000: REM  SET UP BORDER
  15. 50  GOSUB 1000: REM  SCROLL & WAIT FOR KEY
  16. 55  TEXT : HOME : VTAB 10: HTAB 10: PRINT "Please wait..."
  17. 60  PRINT : PRINT  CHR$(4);"RUN MENU"
  18. 100  END 
  19. 499  END 
  20. 1000 R = 6:I = 0:C = 1: COLOR= 6
  21. 1005 DL = 16384 +768:HL = 16384:VL = 16387
  22. 1010  POKE DL +0,0: POKE DL +1,39: POKE DL +2,0: POKE DL +3,0: POKE DL +4,0: CALL HLOC
  23. 1020  GOSUB 1500: IF I <0  THEN  GOTO 1200
  24. 1030  POKE DL +0,39: POKE DL +1,39: POKE DL +2,39: POKE DL +3,0: POKE DL +4,0: CALL VLOC
  25. 1040  GOSUB 1500: IF I <0  THEN  GOTO 1200
  26. 1050  POKE DL +0,0: POKE DL +1,39: POKE DL +2,39: POKE DL +3,39: POKE DL +4,1: CALL HLOC
  27. 1060  GOSUB 1500: IF I <0  THEN  GOTO 1200
  28. 1070  POKE DL +0,0: POKE DL +1,0: POKE DL +2,39: POKE DL +3,0: POKE DL +4,1: CALL VLOC
  29. 1080  GOSUB 1500: IF I <0  THEN  GOTO 1200
  30. 1100 K = 0: COLOR= C
  31. 1110  IF K >NP(R) *2 -2  THEN  GOTO 1130
  32. 1120  HLIN XY(R,K) +XB,XY(R,K +1) +XB AT R +YB
  33. 1125 K = K +2: GOTO 1110
  34. 1130 R = R -1: IF R > = 0  THEN 1150
  35. 1140 R = 6:C = C +1: IF C >15  THEN C = 1
  36. 1145  COLOR= C
  37. 1150  GOSUB 1500
  38. 1199  GOTO 1010
  39. 1200  RETURN 
  40. 1500 J =  PEEK( -16384)
  41. 1510  IF J <128  THEN  GOTO 1590
  42. 1520  IF J = 141  THEN I =  -1
  43. 1530 J =  PEEK( -16368)
  44. 1590  RETURN 
  45. 2000 RO(0) = 0:RO(1) = 6:RO(2) = 1:RO(3) = 5:RO(4) = 2:RO(5) = 4:RO(6) = 3
  46. 2002  GR : COLOR= 15
  47. 2005  FOR R = 0 TO 6
  48. 2007 DC = 0
  49. 2010  FOR P = 1 TO NP(RO(R))
  50. 2015 X1 = XY(RO(R),DC):X2 = XY(RO(R),DC +1)
  51. 2020 J = 1
  52. 2025  IF X1 <X2  THEN  GOTO 2040
  53. 2030 J =  -1
  54. 2040  FOR I = X1 TO X2  STEP J: PLOT I +XB,RO(R) +YB: FOR K = 0 TO 20: NEXT : NEXT 
  55. 2042 DC = DC +2: NEXT 
  56. 2050  NEXT 
  57. 2100  FOR R = 4 TO 6
  58. 2105 J = NP(R) *2 -1
  59. 2110  FOR I = 0 TO NP(R) -2  STEP 2
  60. 2120 T = XY(R,I):XY(R,I) = XY(R,J -I):XY(R,J -I) = T
  61. 2130 T = XY(R,I +1):XY(R,I +1) = XY(R,J -(I +1)):XY(R,J -(I +1)) = T
  62. 2140  NEXT 
  63. 2150  NEXT 
  64. 2999  RETURN 
  65. 3000  REM  BORDER
  66. 3010 C = 0: COLOR= 0
  67. 3020  FOR I = 0 TO 39: PLOT I,0: GOSUB 3200: NEXT 
  68. 3030  FOR I = 1 TO 39: PLOT 39,I: GOSUB 3200: NEXT 
  69. 3040  FOR I = 38 TO 0  STEP  -1: PLOT I,39: GOSUB 3200: NEXT 
  70. 3050  FOR I = 38 TO 0  STEP  -1: PLOT 0,I: GOSUB 3200: NEXT 
  71. 3060 A$ = "Please press RETURN to start."
  72. 3065  VTAB 22: HTAB (20 - LEN(A$)/2): PRINT A$
  73. 3080 A$ = "Copyright 1984 Apple Computer, Inc."
  74. 3085  VTAB 24: HTAB (20 - LEN(A$)/2): PRINT A$;
  75. 3100  RETURN 
  76. 3200 C = C +1: IF C >15  THEN C = 0
  77. 3210  COLOR= C: RETURN 
  78. 4000  CALL 16390
  79. 4010  POKE  -16300,0: POKE  -16297,0: POKE  -16302,0: POKE  -16304,0
  80. 4020  FOR I = 0 TO 19
  81. 4030  POKE 16384 +768,I
  82. 4040  CALL 16393
  83. 4050  NEXT 
  84. 4200  RETURN 
  85. 5000  FOR I = 768 TO 861: READ A: POKE I,A: NEXT I
  86. 5010  DATA 173,50,190,72,173,51,190
  87. 5020  DATA 72,169,30,141,50,190,169
  88. 5030  DATA 3,141,51,190,32,111,253
  89. 5040  DATA 104,141,51,190,104,141,50
  90. 5050  DATA 190,96,32,27,253,201,155
  91. 5060  DATA 240,31,201,141,208,35,96
  92. 5070  DATA 234,234,234,162,0,32,117
  93. 5080  DATA 253,160,2,138,145,105,200
  94. 5090  DATA 169,0,145,105,200,169,2
  95. 5100  DATA 145,105,76,57,213,141,0
  96. 5110  DATA 2,169,141,162,1,96,201
  97. 5120  DATA 136,240,8,201,149,240,04
  98. 5130  DATA 201,160,144,1,96,169,160
  99. 5140  DATA 56,176,192
  100. 5150  RETURN 
  101. 6000  PRINT : PRINT  CHR$(4);"OPEN CALLNAME"
  102. 6010  PRINT  CHR$(4);"CLOSE CALLNAME"
  103. 6020  PRINT  CHR$(4);"DELETE CALLNAME"
  104. 6030  PRINT  CHR$(4);"OPEN CALLNAME"
  105. 6040  PRINT  CHR$(4);"WRITE CALLNAME"
  106. 6050  PRINT "computer user"
  107. 6060  PRINT  CHR$(4);"CLOSE CALLNAME"
  108. 6070  RETURN 
  109. 8000  FOR I = 0 TO 6
  110. 8005  READ Y: READ NP(Y):K = 0
  111. 8010  FOR J = 1 TO NP(Y): READ XY(Y,K),XY(Y,K +1):K = K +2: NEXT 
  112. 8020  NEXT 
  113. 8050  RETURN 
  114. 9910  DATA  0,5,0,3,8,8,13,16,18,22,25,28
  115. 9920  DATA   6,6,28,25,22,18,15,12,10,10,6,6,3,0
  116. 9930  DATA  1,7, 0,0,4,4,7,7,9,9,12,12,20,20,24,24
  117. 9940  DATA   5,7,24,24,20,20,16,16,10,10,6,6,4,4,0,0
  118. 9950  DATA    2,7,0,0,4,4,6,6,10,10,12,12,20,20,24,24
  119. 9960  DATA   4,7,24,24,20,20,16,16,10,10,6,6,4,4,0,0
  120. 9970  DATA  3,5,0,3,6,10,13,15,20,20,24,24
  121. 20000  FOR I = 854 TO 861: PRINT  PEEK(I);",";: NEXT I